home *** CD-ROM | disk | FTP | other *** search
- object fDatetime: TfDatetime
- Left = 374
- Top = 204
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Date/Time'
- ClientHeight = 308
- ClientWidth = 352
- Color = clBtnFace
- Constraints.MaxWidth = 360
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDefault
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnKeyPress = FormKeyPress
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl: TbsSkinPageControl
- Left = 7
- Top = 7
- Width = 234
- Height = 287
- ActivePage = tsShiftBy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabIndex = 1
- TabOrder = 0
- OnChange = PageControlChange
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clBtnText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- DefaultItemHeight = 20
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'tab'
- object tsChange: TbsSkinTabSheet
- Caption = 'Change to'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = 14
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- object BevelA: TbsSkinBevel
- Left = 15
- Top = 188
- Width = 200
- Height = 4
- Shape = bsFrame
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object LTime: TLabel
- Left = 102
- Top = 205
- Width = 26
- Height = 13
- Alignment = taRightJustify
- Caption = 'Time:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 3947580
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object cbMonth: TAMCustomComboBox
- Left = 15
- Top = 9
- Width = 95
- Height = 20
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'comboboxlight'
- OnMouseEnter = cbMonthMouseEnter
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = [fsBold]
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- OnChange = cbMonthChange
- Text = 'January'
- Items.Strings = (
- 'January'
- '')
- ItemIndex = 0
- DropDownCount = 12
- Style = bscbFixedStyle
- TabStop = True
- end
- object eYear: TbsSkinSpinEdit
- Left = 120
- Top = 9
- Width = 95
- Height = 20
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'spinedit'
- OnMouseEnter = eYearMouseEnter
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = [fsBold]
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- ValueType = vtInteger
- MinValue = 1900
- MaxValue = 2200
- Value = 2004
- Increment = 1
- EditorEnabled = True
- MaxLength = 0
- OnChange = eYearChange
- OnEditKeyDown = eYearEditKeyDown
- OnEditKeyPress = eYearEditKeyPress
- end
- object DayCalendar: TbsSkinMonthCalendar
- Left = 15
- Top = 39
- Width = 200
- Height = 148
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'panellight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clBlack
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AutoEnabledControls = True
- CheckedMode = False
- Checked = False
- DefaultAlignment = taLeftJustify
- DefaultCaptionHeight = 22
- BorderStyle = bvFrame
- CaptionMode = False
- RollUpMode = False
- RollUpState = False
- NumGlyphs = 1
- Spacing = 2
- Caption = 'DayCalendar'
- OnDblClick = DayCalendarDblClick
- Date = 36601
- TodayDefault = False
- FirstDayOfWeek = Sun
- OnNumberClick = DayCalendarNumberClick
- end
- object eTime: TAMTimeProEdit
- Left = 135
- Top = 201
- Width = 81
- Height = 20
- TabOrder = 3
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'editlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AutoEnabledControls = True
- CheckedMode = False
- Checked = False
- DefaultAlignment = taLeftJustify
- DefaultCaptionHeight = 22
- BorderStyle = bvFrame
- CaptionMode = False
- RollUpMode = False
- RollUpState = False
- NumGlyphs = 1
- Spacing = 2
- SkinDataNameEdit = 'edithourmin'
- OnChangeTime = eTimeChangeTime
- end
- end
- object tsShiftBy: TbsSkinTabSheet
- Caption = 'Shift by'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = 14
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- object BevelC: TbsSkinBevel
- Left = 17
- Top = 79
- Width = 191
- Height = 4
- Shape = bsBottomLine
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'bevel'
- DividerMode = False
- end
- object lHour: TLabel
- Left = 124
- Top = 26
- Width = 10
- Height = 13
- Caption = 'h:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object eTimeShift: TAMTimeProEdit
- Left = 123
- Top = 44
- Width = 81
- Height = 20
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'editlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AutoEnabledControls = True
- CheckedMode = False
- Checked = False
- DefaultAlignment = taLeftJustify
- DefaultCaptionHeight = 22
- BorderStyle = bvFrame
- CaptionMode = False
- RollUpMode = False
- RollUpState = False
- NumGlyphs = 1
- Spacing = 2
- SkinDataNameEdit = 'edithourmin'
- OnChangeTime = eTimeChangeTime
- end
- object rbForward: TAMCheckRadioBox
- Left = 14
- Top = 20
- Width = 51
- Height = 25
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- CanFocused = False
- Radio = True
- Checked = True
- GroupIndex = 1
- Caption = 'Forward'
- AutoSize = True
- end
- object rbBack: TAMCheckRadioBox
- Left = 14
- Top = 45
- Width = 38
- Height = 25
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'Back'
- AutoSize = True
- end
- end
- object tsGetFrom: TbsSkinTabSheet
- Caption = 'Get from'
- object LDate1: TLabel
- Left = 35
- Top = 30
- Width = 24
- Height = 11
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate2: TLabel
- Left = 35
- Top = 60
- Width = 24
- Height = 11
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate3: TLabel
- Left = 35
- Top = 90
- Width = 24
- Height = 11
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate4: TLabel
- Left = 35
- Top = 180
- Width = 24
- Height = 11
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate5: TLabel
- Left = 35
- Top = 210
- Width = 24
- Height = 11
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate6: TLabel
- Left = 35
- Top = 239
- Width = 24
- Height = 11
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate7: TLabel
- Left = 35
- Top = 120
- Width = 24
- Height = 11
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate8: TLabel
- Left = 35
- Top = 150
- Width = 24
- Height = 11
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object rbFileCreatedTime: TAMCheckRadioBox
- Left = 14
- Top = 160
- Width = 95
- Height = 20
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'File Created Time'
- OnClick = rbEXIFDateTimeClick
- AutoSize = True
- end
- object rbFileModifiedTime: TAMCheckRadioBox
- Left = 14
- Top = 190
- Width = 98
- Height = 20
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'File Modified Time'
- OnClick = rbEXIFDateTimeClick
- AutoSize = True
- end
- object rbFileImportedTime: TAMCheckRadioBox
- Left = 14
- Top = 220
- Width = 99
- Height = 20
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'File Imported Time'
- OnClick = rbEXIFDateTimeClick
- AutoSize = True
- end
- object rbEXIFDateTime: TAMCheckRadioBox
- Left = 14
- Top = 10
- Width = 88
- Height = 20
- TabOrder = 3
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = True
- GroupIndex = 1
- Caption = 'EXIF Date Time'
- OnClick = rbEXIFDateTimeClick
- AutoSize = True
- end
- object rbEXIFDateTimeOriginal: TAMCheckRadioBox
- Left = 14
- Top = 40
- Width = 126
- Height = 20
- TabOrder = 4
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'EXIF Date Time Original'
- OnClick = rbEXIFDateTimeClick
- AutoSize = True
- end
- object rbEXIFDateTimeDigitized: TAMCheckRadioBox
- Left = 14
- Top = 70
- Width = 131
- Height = 20
- TabOrder = 5
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'EXIF Date Time Digitized'
- OnClick = rbEXIFDateTimeClick
- AutoSize = True
- end
- object rbIPTCDateTimeRelease: TAMCheckRadioBox
- Left = 14
- Top = 100
- Width = 131
- Height = 20
- TabOrder = 6
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'IPTC Date Time Release'
- OnClick = rbEXIFDateTimeClick
- AutoSize = True
- end
- object rbIPTCDateTimeCreated: TAMCheckRadioBox
- Left = 14
- Top = 130
- Width = 129
- Height = 20
- TabOrder = 7
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'IPTC Date Time Created'
- OnClick = rbEXIFDateTimeClick
- AutoSize = True
- end
- end
- end
- object cntLeft: TAMContainer
- Left = 244
- Top = 0
- Width = 108
- Height = 308
- Align = alRight
- DoubleBuffered = False
- object chDefaultTime: TAMCheckRadioBox
- Left = 13
- Top = 83
- Width = 76
- Height = 25
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'checkboxlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- TabStop = True
- CanFocused = True
- Radio = False
- Checked = False
- GroupIndex = 0
- Caption = ' Current Time'
- OnClick = chDefaultTimeClick
- AutoSize = True
- end
- object bCancel: TbsSkinButton
- Left = 14
- Top = 52
- Width = 75
- Height = 24
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Cancel'
- NumGlyphs = 2
- Spacing = 1
- Cancel = True
- ModalResult = 2
- end
- object bOk: TbsSkinButton
- Left = 14
- Top = 18
- Width = 75
- Height = 24
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Ok'
- NumGlyphs = 2
- Spacing = 1
- Default = True
- ModalResult = 1
- end
- end
- object SkinForm: TbsBusinessSkinForm
- GradientStartColor = clBlack
- GradientEndColor = clBlack
- DrawBackground = True
- ShowIcon = False
- MaximizeOnFullScreen = False
- AlphaBlend = False
- AlphaBlendAnimation = False
- AlphaBlendValue = 200
- ShowObjectHint = False
- MenusAlphaBlend = False
- MenusAlphaBlendAnimation = False
- MenusAlphaBlendValue = 200
- DefCaptionFont.Charset = DEFAULT_CHARSET
- DefCaptionFont.Color = clBtnText
- DefCaptionFont.Height = 13
- DefCaptionFont.Name = 'Tahoma'
- DefCaptionFont.Style = [fsBold]
- DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
- DefInActiveCaptionFont.Color = clBtnShadow
- DefInActiveCaptionFont.Height = 13
- DefInActiveCaptionFont.Name = 'Tahoma'
- DefInActiveCaptionFont.Style = [fsBold]
- DefMenuItemHeight = 20
- DefMenuItemFont.Charset = DEFAULT_CHARSET
- DefMenuItemFont.Color = clWindowText
- DefMenuItemFont.Height = 13
- DefMenuItemFont.Name = 'Tahoma'
- DefMenuItemFont.Style = []
- UseDefaultSysMenu = True
- SkinData = SkinDataModule.SkinDataDlg
- MinHeight = 0
- MinWidth = 0
- Magnetic = False
- MagneticSize = 5
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
- Left = 285
- Top = 213
- end
- object IO: TImageEnIO
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- Left = 264
- Top = 176
- end
- end
-